home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / ripplean.lzh / SimpleRipple_decrease.fred < prev    next >
Text File  |  1993-10-02  |  3KB  |  121 lines
  1. /*  SimpleRipple_decrease.fred
  2.  
  3. ** Clips Imported:
  4. **     FREDPhase   -  Current Phase amount (degrees)
  5. **     FREDPhaseIncrement   -  Phase increment per frame
  6.  
  7. ** Clips Exported:
  8. **     FREDPhase   -  Current Phase amount (degrees)
  9. **     FREDOverrideLength   -  Override Length parameter flag
  10. **                        (if 1, override the Length)
  11.  
  12. ** NOTE: Clip names are case sensitive.
  13. **
  14. ** This script requires FRED v1.2.0 (or higher) to run.  Also required is
  15. ** ADPro v2.0.0 or MorphPlus v1.0.0.
  16. */
  17.  
  18. ADDRESS "ADPro"
  19. OPTIONS RESULTS
  20.  
  21. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  22.  
  23. NL = '0A'X
  24.  
  25. /*
  26. ** Get the required clips.  Error if any are missing.
  27. */
  28.  
  29. Phase = GETCLIP( "FREDPhase" )
  30. IF (Phase = "") THEN DO
  31.    ADPRO_TO_FRONT
  32.    OKAY1 "Required clip, FREDPhase," || NL ||,
  33.       "is not specified."
  34.    ADPRO_TO_BACK
  35.    EXIT 10
  36. END
  37.  
  38. PhaseIncrement = GETCLIP( "FREDPhaseIncrement" )
  39. IF (PhaseIncrement = "") THEN DO
  40.    ADPRO_TO_FRONT
  41.    OKAY1 "Required clip, FREDPhaseIncrement," || NL ||,
  42.       "is not specified."
  43.    ADPRO_TO_BACK
  44.    EXIT 10
  45. END
  46.  
  47.  
  48. /*
  49. ** See what type of data is loaded in ADPro/MorphPlus.
  50. */
  51.  
  52. IMAGE_TYPE
  53. ImageType = ADPRO_RESULT
  54. IF ( WORD( ImageType, 1 ) = "NONE" ) THEN DO
  55.    ADPRO_TO_FRONT
  56.    OKAY1 "There is currently no image" || NL ||,
  57.       "in ADPro's buffer. An image" || NL ||,
  58.       "is required for this operation."
  59.         ADPRO_TO_BACK
  60.    EXIT 10
  61. END
  62.  
  63. IF (WORD( ImageType, 1 ) = "BITPLANE") THEN DO
  64.    /*
  65.    ** There's no raw data, but there is rendered data.
  66.    ** The user must want us to modify the rendered data.
  67.    */
  68.  
  69.    OPERATOR "RENDERED_TO_RAW"
  70.    IF (RC ~= 0) THEN DO
  71.       ADPRO_TO_FRONT
  72.       OKAY1 "Converting rendered to raw failed."
  73.       ADPRO_TO_BACK
  74.       EXIT 10
  75.    END
  76. END
  77.  
  78.  
  79. /******************************************************************  
  80. The ripple operator. 
  81. ******************************************************************/
  82.  
  83. XSIZE
  84. CenterX = ADPRO_RESULT / 2
  85. YSIZE
  86. CenterY = ADPRO_RESULT / 2
  87.  
  88.    OPERATOR "RIPPLE",
  89.    "CENTER" CenterX CenterY,
  90.    "PROPSPEED" 40,
  91.    "PERIOD" 40,
  92.    "AMPLITUDE" 50,
  93.    "PHASE" Phase,
  94.    "RAMP" 6,
  95.    "LEVELOFF" 1,
  96.    "WAVETYPE" "-1",
  97.    "FRAME" 10,
  98.    "NEWWAVE",
  99.  
  100. IF (RC ~= 0) THEN DO
  101.    Why = ADPRO_RESULT
  102.    ADPRO_TO_FRONT
  103.    OKAY1 "The operator RIPPLE" || NL ||,
  104.       "failed to execute." || NL ||,
  105.                 Why
  106.         ADPRO_TO_BACK
  107.    EXIT 10
  108. END
  109.  
  110.    Phase = Phase + PhaseIncrement
  111.    IF Phase > 360 THEN Phase = Phase - 360
  112.  
  113. /*
  114. ** Update the clips.
  115. */
  116.  
  117. SETCLIP( "FREDPhase", Phase )
  118. SETCLIP( "FREDOverrideLength", 1 )
  119.  
  120. EXIT 0
  121.